home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 October / EnigmA AMIGA RUN 22 (1997)(G.R. Edizioni)(IT)[!][issue 1997-10 & 11][EAR-CD VI].iso / progs / demos / arteffect2.demo / rexx / rec.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-05  |  2KB  |  88 lines
  1. /*
  2.  * Graduates
  3.  *
  4.  * ARexx Example for: new, rectangle (gradients)
  5.  * Author: A. Pratsch
  6.  * This script is Public Domain
  7.  */
  8.  
  9. options results
  10.  
  11. address "ArtEffect"
  12.  
  13. dummy = random(,,time(seconds))
  14.  
  15. setcolor 0 0 0 bg
  16.  
  17. new w 400 h 400 fill white "Gradients"
  18.  
  19. /*
  20.     gradient string: (linear|radial),(rgb|hsb|alpha),steps,roughness:(linecoordinates:x1,y1,x2,y2|circlecoordinates,mx,my,r)
  21.     parameters may not appear if you want to use defaults: e.g. linear,,,10:0,0,100,100" is a valid gradient. Of course the
  22.     line or circle coordinates always must be given.
  23. */
  24. /*
  25. rectangle gradient "linear,hsb,16,20:0,0,99,99" strength 50 0 0 99 99
  26. rectangle gradient "linear,hsb,256,0:100,0,199,99" strength 50 100 0 199 99
  27.  
  28. rectangle gradient "radial,rgb,16,20:50,150,50" strength 75 0 100 99 199
  29. rectangle gradient "radial,rgb,256,0:150,150,50" strength 75 100 100 199 199
  30.  
  31. erasepic
  32.  
  33. palette rs 0 re 1
  34.  
  35. do k=0 to 399 by 50
  36.     do i=0 to 399 by 50
  37.         'setcolor 'random(0,255)' 'random(0,255)' 'random(0,255)' reg 0'
  38.         'setcolor 'random(0,255)' 'random(0,255)' 'random(0,255)' reg 1'
  39.         mode = random(1,2);
  40.         if mode=1 then
  41.         do
  42.             j = random(10,50)
  43.             l = random(10,50)
  44.  
  45.             type = "linear"
  46.             options = i+l","k+j","i+49-l","k+49-j
  47.         end
  48.         else
  49.         do
  50.             type = "radial"
  51.             options = i+25","k+25","random(5,40)
  52.         end
  53.  
  54.         mode = random(1,2);
  55.         if mode=1 then
  56.             range = "rgb"
  57.         else
  58.             range = "hsb"
  59.  
  60.         "rectangle gradient "type","range","random(1,256)","random(0,20)":"options" strength "random(10,100)" "i" "k" "i+49" "k+49
  61.     end
  62. end
  63.  
  64. setcolor 255 0 0 reg 0
  65. setcolor 255 255 0 reg 1
  66. polygon gradient 'radial,rgb,256,0:200,200,200' strength 50 '200,0 280,120 400,120 320,200 400,280 280,280 200,400 120,280 0,280 80,200 0,120 120,120'
  67. */
  68. poly = "'"
  69. do i=0 to 100
  70.     poly = poly || random(1,400) || "," || random(1,400) || " "
  71. end
  72. poly = poly || "'"
  73.  
  74. setcolor 255 0 0 reg 0
  75. setcolor 0 0 255 reg 1
  76. "polygon gradient radial,hsb,256,10:200,200,200 strength 100 " poly
  77.  
  78. setcolor 0 0 0
  79. "circle pt fill mode color strength 50 200 200 50"
  80.  
  81. setcolor 0 0 255 reg 0
  82. setcolor 255 0 255 reg 1
  83. "ellipse gradient linear,rgb,,:150,150,250,250 strength 100 200 200 50 25"
  84.  
  85. setcolor 255 0 0
  86. 'flood mode color strength 100 1 1'
  87.  
  88.